home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Informant Complete 1995 - 2000
/
Delphi Informant Complete 1995 to 2000.iso
/
Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar
/
1998
/
Sep
/
di9809jp
/
BlastServer
/
Main.dfm
/
Main.txt
Wrap
Text File
|
1998-03-06
|
6KB
|
218 lines
object frmMain: TfrmMain
Left = 243
Top = 260
Width = 411
Height = 334
ActiveControl = memMsg
Caption = 'BlastCast Server 1.0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 403
Height = 307
ActivePage = tsSend
Align = alClient
MultiLine = True
TabOrder = 0
object tsSetUp: TTabSheet
Caption = 'Setup'
object gbTTL: TGroupBox
Left = 8
Top = 8
Width = 105
Height = 50
Caption = 'TTL'
TabOrder = 0
object edTTL: TEdit
Left = 33
Top = 15
Width = 25
Height = 21
TabOrder = 0
Text = '2'
end
object udTTL: TUpDown
Left = 58
Top = 15
Width = 15
Height = 21
Associate = edTTL
Min = 1
Max = 255
Position = 2
TabOrder = 1
Wrap = False
end
end
object gbMCAddress: TGroupBox
Left = 8
Top = 64
Width = 105
Height = 50
Caption = 'Multicast address'
TabOrder = 1
object edMCAddr: TEdit
Left = 8
Top = 16
Width = 89
Height = 21
TabOrder = 0
Text = '234.5.6.7'
end
end
object gbPort: TGroupBox
Left = 8
Top = 120
Width = 105
Height = 50
Caption = 'Port'
TabOrder = 2
object edPort: TEdit
Left = 16
Top = 14
Width = 57
Height = 21
TabOrder = 0
Text = '0'
end
object udPort: TUpDown
Left = 73
Top = 14
Width = 15
Height = 21
Associate = edPort
Min = 0
Max = 30000
Position = 0
TabOrder = 1
Wrap = False
end
end
end
object tsSend: TTabSheet
Caption = 'Send'
object gbMemo: TGroupBox
Left = 8
Top = 0
Width = 377
Height = 150
Caption = 'Announcement'
TabOrder = 0
object memMsg: TMemo
Left = 2
Top = 15
Width = 373
Height = 133
Align = alClient
Lines.Strings = (
'memMsg')
ScrollBars = ssBoth
TabOrder = 0
end
end
object gbSendActions: TGroupBox
Left = 8
Top = 233
Width = 377
Height = 46
Caption = 'Actions'
TabOrder = 1
object bbtnClose: TBitBtn
Left = 292
Top = 15
Width = 75
Height = 25
TabOrder = 0
OnClick = bbtnCloseClick
Kind = bkClose
end
object bbtnMail: TBitBtn
Left = 105
Top = 16
Width = 75
Height = 25
Caption = 'Mail'
TabOrder = 1
OnClick = bbtnMailClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000
000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F
FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF
9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000
0000777777777777777733333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object bbtnClear: TBitBtn
Left = 12
Top = 16
Width = 76
Height = 25
Caption = 'C&lear'
TabOrder = 2
OnClick = bbtnClearClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F5555000555555505555577755555557555}
NumGlyphs = 2
end
object bbtnAbout: TBitBtn
Left = 200
Top = 16
Width = 75
Height = 25
Caption = '&About'
TabOrder = 3
OnClick = bbtnAboutClick
Kind = bkHelp
end
end
object gbStatusMsg: TGroupBox
Left = 8
Top = 152
Width = 377
Height = 81
Caption = 'Status Messages'
TabOrder = 2
object memStatusMsg: TMemo
Left = 2
Top = 15
Width = 373
Height = 64
Align = alClient
Lines.Strings = (
'memStatusMsg')
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
end
end
end
end
end